If IIf(a = 1, True, False) Then 
	Debug.Print "a = 1"
End If

Debug.Print "a = 1 -> " & IIf(a = 1, "Si", "No")